home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1985 March / 1985-03.d64 / baker's dozen 2 (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  603b  |  22 lines
  1. 5 a=1:b=-1:c=40:d=-40:e=10:p=54272
  2. 10 printchr$(147):poke53280,0:poke53281,0
  3. 20 v=int(1000*rnd(1))+1024::q=int(15*rnd(1))+1
  4. 30 n=int(e*rnd(1))+1:z=int(e*rnd(1))+1
  5. 40 ifv+n<1024then:v=v-n:goto20
  6. 45 ifv+n>2023then:v=v-n:goto20
  7. 50 ifv-n<1024then:v=v+n:goto20
  8. 55 ifv-n>2023then:v=v+n:goto20
  9. 60 ifv+(40*z)<1024then:v=v-(40*z):goto20
  10. 65 ifv+(40*z)>2023then:v=v-(40*z):goto20
  11. 70 ifv-(40*z)<1024then:v=v+(40*z):goto20
  12. 75 ifv-(40*o)>2023then:v=v+(40*z):goto20
  13. 80 forx=1ton:pokev+a,67:pokev+a+p,q:v=v+a:next
  14. 90 pokev,75:pokev+p,q
  15. 100 forx=1toz:pokev+d,66:pokev+d+p,q:v=v+d:next
  16. 110 pokev,73:pokev+p,q
  17. 120 forx=1ton:pokev+b,67:pokev+b+p,q:v=v+b:next
  18. 130 pokev,85:pokev+p,q
  19. 140 forx=1toz:pokev+c,66:pokev+c+p,q:v=v+c:next
  20. 150 pokev,74:pokev+p,q
  21. 160 goto20
  22.